o%Busqueda Incremental Recibe la function 'foo', el valor del delta , el
%numero de iteraciones y el x inicial
function b = busquedaIncremental(fs,deltaX,iter,x0)
f = inline (fs);
y0 = f (x0);
x1 = x0 + deltaX;
y1 = f (x1);
b = [ x0,y0 ; x1,y1];
cont = 1;
while (y1 * y0) > 0 && cont < iter
         x0 = x1;
		 y0 = y1;
		 x1 = x0 + deltaX;
		 y1 = f ( x1 );
         b = [b ; x1 , y1];   
         cont = cont + 1;
end
f = figure ('Position',[100 100 752 350]);
t = uitable ('Parent',f,'Position',[25 25 700 200]);
set (t,'Data',b);
set (t,'ColumnName',{'x','f(x)'});
%    if (y1 == 0)
%        b = (x1);
%    else
%        if (y0 == 0)
%           b = (x0);
%        else
%            if (y1 * y0) <  0
%                b = [x0 x1];
%            else
%             b = ' ninguno de los intervalos';
%           end
%        end
%         
%    end
end
